Suzy B Software 2

home *** CD-ROM | disk | FTP | other *** search

/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / stos / stos_81 / risk.bas (.txt) < prev next >

Wrap

Atari STOS Basic | 1987-04-21 | 72KB | 536 lines

10 REM ~~~ dimension ~~~~ 100 REM ~~~~ initialisatie ~~~~ 1000 REM ~~~ gevecht ~~~~~ 10000 MODE 10001 PALETTE 10010 SCREEN COPY 10020 FOR 10025 INC 10031 FOR 10040 SET PAINT 10045 PAINT 10050 NEXT 10060 NEXT 10070 PEN 10071 LOCATE 10090 CLEAR KEY 10099 RETURN 101 VARNAME 1010 MODE 1011 KEY 1020 PALETTE 1029 PEN 1030 WINDOPEN 1031 PEN 1032 PEN 1033 HIDE 1035 VARNAME 1036 INK 1037 VARNAME 1038 INK 1039 PEN 1040 LOCATE 1041 VARNAME 1045 VARNAME 1046 LOCATE 1050 LOCATE 1051 VARNAME 1055 VARNAME 1056 CURS 1060 FOR 1065 INK 1066 PAPER 1067 PAPER 1070 REM PLAATS DOBBELSTENEN 1071 FOR 1072 IF 1073 IF 1074 NEXT 1079 VARNAME 1080 REPEAT 1081 VARNAME 1082 IF 1085 IF 1086 UNTIL 1087 IF 1088 IF 1090 FOR 1091 NEXT 1095 FOR 1096 NEXT 1099 VARNAME 11 REM - ligging/fill staten 110 FOR 1100 FOR 1110 IF 1115 IF 1119 NEXT 1120 FOR 1130 IF 1140 NEXT 1150 PEN 1151 VARNAME 1160 VARNAME 1163 PEN 1164 CLEAR KEY 1165 IF 1166 REPEAT 1168 OFF 1169 CLW 1170 GOTO 1180 WINDEL 1185 GOSUB 1189 GOTO 12 DIM 120 VARNAME 1200 REM ~~~~ 1210 IF 1220 IF 1224 IF 1225 LOCATE 1226 VARNAME 1227 VARNAME 1228 VARNAME 1229 CLEAR KEY 1230 GOTO 13 REM - legers 130 IF 14 DIM 140 VARNAME 15 REM - dobbelspel 150 NEXT 16 DIM 160 FOR 17 REM - spelers 170 NEXT 171 FOR 172 VARNAME 173 VARNAME 174 NEXT 18 DIM 180 RESTORE 190 FOR 195 READ 1999 WAIT KEY 200 VARNAME 2000 REM ~~~ move ~~~ 20000 REM ~~~ bonus ~~~~ 2001 HIDE 20010 PEN 2002 LOCATE 20020 FOR 2003 VARNAME 20030 INK 20040 NEXT 20050 WHILE 20060 REPEAT 20070 BELL 20080 NEXT 20090 LOCATE 20099 RETURN 2010 LOCATE 2019 WHILE 2020 REPEAT 2030 VARNAME 2040 IF 2050 VARNAME 2051 PAPER 2055 IF 2056 IF 2057 VARNAME 2058 IF 2059 IF 2060 PEN 2061 IF 2062 INK 2065 WHILE 2070 REPEAT 2071 VARNAME 2075 IF 2080 VARNAME 2081 PAPER 2085 IF 2087 VARNAME 2090 IF 2091 IF 2092 IF 2093 IF 2094 VARNAME 2095 INC 2096 IF 2097 DEC 2098 VARNAME 210 VARNAME 2100 PEN 2101 PAPER 2110 GOTO 220 READ 230 WEND 240 NEXT 245 GOSUB 249 VARNAME 250 REM ~~~~~~~ MAIN ~~~~~~~~~~~~ 255 REPEAT 256 IF 257 VARNAME 258 IF 260 GOSUB 262 GOSUB 265 IF 270 GOSUB 285 INC 290 UNTIL 2950 HIDE 2961 IF 2970 WAIT VBL 2999 GOTO 300 REM ~~~ SCHERM (LANDKAART) 3000 REM ~~~~ GAME OVER ~~~~~ 3001 IF 3002 HIDE 3010 PAPER 3015 CURS 302 IF 3020 TITLE 3030 LOCATE 3035 VARNAME 3036 FOR 3037 IF 3038 NEXT 3039 VARNAME 3040 PAPER 3041 PEN 3045 PEN 305 MODE 3050 LOCATE 3055 LOCATE 3056 LOCATE 3057 LOCATE 3058 LOCATE 3059 LOCATE 306 PALETTE 3060 LOCATE 307 HIDE 3070 CLEAR KEY 3080 REPEAT 3090 IF 310 SCREEN COPY 311 IF 313 SHOW 315 FOR 316 VARNAME 317 VARNAME 319 VARNAME 320 FOR 330 IF 331 IF 340 NEXT 345 PAPER 346 PAPER 350 PEN 351 INK 352 SET ZONE 360 LOCATE 361 INK 362 SET ZONE 365 IF 366 SET ZONE 370 IF 399 RETURN 3999 RUN 400 WHILE 402 IF 403 VARNAME 404 IF 405 NEXT 406 IF 409 REPEAT 410 VARNAME 420 IF 425 VARNAME 426 PAPER 430 UNTIL 440 IF 450 IF 460 IF 470 IF 480 IF 481 IF 490 IF 499 GOTO 50 RESERVE 500 REM ~~~ attack ~~~~ 5000 REM ~~~pas~~~ 50000 DATA 50001 DATA 50002 DATA 50003 DATA 50004 DATA 50005 DATA 50006 DATA 50007 DATA 50008 DATA 50009 DATA 50010 DATA 50011 DATA 50012 DATA 50013 DATA 50014 DATA 50015 DATA 50016 DATA 50017 DATA 50018 DATA 50019 DATA 50020 DATA 50021 DATA 50022 DATA 50023 DATA 50024 DATA 50025 DATA 50026 DATA 50027 DATA 50028 DATA 50029 DATA 50030 DATA 50031 DATA 50032 DATA 50033 DATA 50034 DATA 50035 DATA 50036 DATA 50037 DATA 50038 DATA 50039 DATA 501 VARNAME 5010 HIDE 502 PAPER 5020 WINDOPEN 503 HIDE 5030 CURS 5040 PAPER 5050 VARNAME 5060 LOCATE 5070 VARNAME 5080 CLEAR KEY 5090 REPEAT 5091 BELL 50999 REM ## data bonus ## 510 LOCATE 5100 WINDEL 51000 DATA 51001 DATA 51002 DATA 51003 DATA 51004 DATA 51099 DATA 5110 SCREEN COPY 5120 SHOW 5130 GOSUB 515 WHILE 519 REPEAT 5199 RETURN 520 IF 522 UNTIL 524 IF 525 IF 530 IF 535 IF 540 LOCATE 541 IF 542 INK 545 LOCATE 549 WHILE 550 REPEAT 551 IF 552 UNTIL 555 IF 560 IF 561 VARNAME 562 INC 563 IF 570 LOCATE 571 LOCATE 575 WHILE 576 REPEAT 578 IF 589 CLEAR KEY 590 GOTO 5900 REM ~~~ support in game ~~~ 5910 IF 5920 PEN 5930 PEN 5940 GOTO 5950 PEN 5960 PEN 5999 RETURN 65 VARNAME 66 VARNAME 690 WAIT KEY 695 HIDE 699 GOTO 70 VARNAME 700 REM ~~~ info ~~~ 7000 REM ~~~ cards ~~~~ 701 HIDE 7010 HIDE 7020 WINDOPEN 7030 CURS 7040 TITLE 7050 LOCATE 710 PAPER 7100 VARNAME 7110 FOR 7120 VARNAME 7130 PEN 7140 VARNAME 7150 NEXT 7155 PAPER 7160 PEN 7170 CLEAR KEY 7180 WINDEL 7190 SCREEN COPY 720 WINDOPEN 7200 REPEAT 7210 PAPER 722 CURS 7220 REPEAT 7230 VARNAME 7240 IF 7250 VARNAME 7260 VARNAME 7270 IF 7275 INC 7276 PAPER 7280 WHILE 730 TITLE 7300 UNTIL 7310 LOCATE 735 PRINT 7390 LOCATE 7395 VARNAME 7399 RETURN 740 PAPER 741 PEN 749 VARNAME 750 FOR 751 VARNAME 755 IF 759 NEXT 760 LOCATE 761 LOCATE 762 LOCATE 763 WHILE 765 WINDEL 770 FOR 790 WHILE 791 HIDE 795 SCREEN COPY 796 SHOW 799 GOTO 80 REM ~~~ begin ~~~~ 800 REM ~~~ file ~~~~ 8000 REM ~~ save ~~~ 801 CLEAR KEY 8010 LOCATE 8015 ON ERROR 8020 OPEN OUT 8030 FOR 8040 PRINT 8050 PRINT 8060 PRINT 8070 NEXT 8080 PRINT 8091 PRINT 8092 IF 8093 PRINT 8095 CLOSE 81 MODE 810 HIDE 8100 RETURN 82 EXTENSION (Index #0) (Token 0x80) 820 PAPER 83 COLOUR 830 WINDOPEN 831 TITLE 832 CURS 840 PRINT 8400 LOCATE 8405 BOOM 8410 CLEAR KEY 8430 RESUME 8499 RETURN 8500 REM ~~ load ~~~ 8505 VARNAME 8510 LOCATE 8520 ON ERROR 8530 IF 8550 OPEN IN 8560 FOR 8570 INPUT 8580 INPUT 8590 INPUT 8600 NEXT 8610 INPUT 8611 INPUT 8612 INPUT 8620 CLOSE 8630 VARNAME 880 REPEAT 8800 RETURN 885 UNTIL 890 IF 8900 LOCATE 8905 BOOM 891 IF 8910 CLEAR KEY 892 IF 8920 RESUME 895 WINDEL 896 IF 899 GOTO 8999 RETURN 90 VARNAME 900 REM ~~~~ info ~~~~ 9000 REM ~~ check bonus ~~ 901 HIDE 9010 VARNAME 902 SCREEN COPY 9020 FOR 9030 VARNAME 9040 IF 9050 NEXT 9060 IF 9070 NEXT 9099 RETURN 91 IF 910 VARNAME 911 INK 92 CURS 920 IF 921 IF 925 PAPER 930 WINDOPEN 940 CURS 9499 RETURN 950 CENTRE 9500 RESTORE 9510 VARNAME 9520 REPEAT 9530 INC 9540 READ 9541 VARNAME 9545 FOR 955 PAPER 9550 VARNAME 956 LOCATE 9560 READ 960 PAPER 961 PAPER 962 PAPER 990 WHILE 991 WINDEL 995 SCREEN COPY 998 SHOW 999 GOTO 9990 UNTIL